COMMENT ⊗   VALID 00005 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00004 00003
C00007 00004
C00008 00005	
C00009 ENDMK
C⊗;

'(THIS IS THE LAP FOR ((DSK (TIM LSP)) NREVER /1)) 
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /84 MAKLAP /80 INITIA /117) 

;COMPILED ON JANUARY 29, 1983, AT 6:09 PM

(LAP XREVERSE SUBR) 
(ARGS XREVERSE (()  . 1)) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(PUSH P (% 0 0 '() )) 
G0001 
(SKIPE 0 -2 P) 
(JRST 0 G0002) 
(MOVE 1 0 P) 
(JRST 0 G0004) 
G0002 
(HRRZ 1 @ -2 P) 
(MOVE 5 0 P) 
(HRRM 5 @ -2 P) 
(MOVEM 1 -1 P) 
(JUMPN 1 G0006) 
(MOVE 1 -2 P) 
(JSP T PDLNMK) 
(JRST 0 G0004) 
G0006 
(HRRZ 2 0 1) 
(MOVE 1 -2 P) 
(JSP T PDLNMK) 
(HRRM 1 @ -1 P) 
(MOVEM 2 0 P) 
(JUMPN 2 G0011) 
(MOVE 1 -1 P) 
(JRST 0 G0004) 
G0011 
(HRRZ 3 0 2) 
(MOVE 1 -1 P) 
(HRRM 1 0 2) 
(MOVEM 3 -2 P) 
(JRST 0 G0001) 
G0004 
(SUB P (% 0 0 3 3)) 
(JRST 0 PDLNKJ) 
()  


(LAP GREVERSE SUBR) 
(ARGS GREVERSE (()  . 1)) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(PUSH P (% 0 0 '() )) 
(JUMPE 1 G0004) 
(HRRZ 1 0 1) 
(MOVEM 1 0 P) 
(JUMPN 1 G0003) 
G0004 
(MOVE 1 -2 P) 
(JSP T PDLNMK) 
(JRST 0 G0002) 
G0003 
(HRRZ 1 0 1) 
(MOVEM 1 -1 P) 
(JUMPN 1 G0007) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(HLRZ 1 @ -3 P) 
(HRLM 1 @ -1 P) 
(POP P 1) 
(HRLM 1 @ -2 P) 
(MOVE 1 -2 P) 
(JSP T PDLNMK) 
(JRST 0 G0002) 
G0007 
(HRRZ 2 0 1) 
(JUMPN 2 G0012) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(HLRZ 1 @ -3 P) 
(HRLM 1 @ -2 P) 
(POP P 1) 
(HRLM 1 @ -2 P) 
(MOVE 1 -2 P) 
(JSP T PDLNMK) 
(JRST 0 G0002) 
G0012 
(MOVE 1 -2 P) 
(JSP T PDLNMK) 
(PUSH P 0 P) 
(PUSH P -2 P) 
(PUSH P -2 P) 
(HRRZ 3 @ -1 P) 
(PUSH P 1) 
(MOVEM 3 -6 P) 
G0001 
(MOVE 1 -1 P) 
(HRRM 1 @ -2 P) 
(HRRZ 2 @ -6 P) 
(MOVEM 2 -1 P) 
(JUMPN 2 G0021) 
(HLRZ 1 @ -6 P) 
(PUSH P 1) 
(HLRZ 1 @ -1 P) 
(HRLM 1 @ -7 P) 
(POP P 1) 
(HRLM 1 @ 0 P) 
(MOVE 1 -2 P) 
(HRRM 1 @ 0 P) 
(MOVE 1 -6 P) 
(JSP T PDLNMK) 
(HRRM 1 @ -3 P) 
(MOVE 1 0 P) 
(JRST 0 G0026) 
G0021 
(MOVE 1 -2 P) 
(HRRM 1 @ -6 P) 
(HRRZ 3 0 2) 
(MOVEM 3 -2 P) 
(JUMPN 3 G0028) 
(HLRZ 1 0 2) 
(PUSH P 1) 
(HLRZ 1 @ -1 P) 
(HRLM 1 0 2) 
(POP P 1) 
(HRLM 1 @ 0 P) 
(MOVE 1 -6 P) 
(JSP T PDLNMK) 
(HRRM 1 @ 0 P) 
(HRRM 2 @ -3 P) 
(MOVE 1 0 P) 
(JRST 0 G0026) 
G0028 
(MOVE 1 -6 P) 
(JSP T PDLNMK) 
(HRRM 1 0 2) 
(HRRZ 4 0 3) 
(MOVEM 4 -6 P) 
(JUMPN 4 G0001) 
(HLRZ 1 0 3) 
(PUSH P 1) 
(HLRZ 1 @ -1 P) 
(HRLM 1 0 3) 
(POP P 1) 
(HRLM 1 @ 0 P) 
(HRRM 2 @ 0 P) 
(HRRM 3 @ -3 P) 
(MOVE 1 0 P) 
G0026 
(SUB P (% 0 0 4 4)) 
G0002 
(SUB P (% 0 0 3 3)) 
(POPJ P) 
()  


(LAP KREVERSE SUBR) 
(ARGS KREVERSE (()  . 1)) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(PUSH P (% 0 0 '() )) 
(JUMPE 1 G0003) 
G0001 
(HRRZ 1 @ -2 P) 
(MOVE 5 0 P) 
(HRRM 5 @ -2 P) 
(MOVEM 1 -1 P) 
(JUMPN 1 G0005) 
(MOVE 1 -2 P) 
(JSP T PDLNMK) 
(JRST 0 G0008) 
G0005 
(HRRZ 2 0 1) 
(MOVE 1 -2 P) 
(JSP T PDLNMK) 
(HRRM 1 @ -1 P) 
(MOVEM 2 0 P) 
(JUMPN 2 G0011) 
(MOVE 1 -1 P) 
(JRST 0 G0008) 
G0011 
(HRRZ 3 0 2) 
(MOVE 1 -1 P) 
(HRRM 1 0 2) 
(MOVEM 3 -2 P) 
(JUMPN 3 G0001) 
(MOVEI 1 0 2) 
(JRST 0 G0008) 
G0003 
(MOVEI 1 '() ) 
G0008 
(SUB P (% 0 0 3 3)) 
(JRST 0 PDLNKJ) 
()